home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 2 / Dark_Star_02_1995_-_de_Side_B.d64 / guerilla warfare (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  27KB  |  649 lines
  1. 10 gosub6280
  2. 20 poke743,169:poke29,0
  3. 30 poke720,8:poke739,52:poke744,50:poke749,56:poke754,48:poke758,169
  4. 40 un=(peek(0)=76):sc=53281+16402*un:pokesc,0-26*v:ifun=0thenpoke53280,0
  5. 50 dimi$(16),i(16),v$(17):printchr$(142)
  6. 60 print"[147][155]";" do you want instructions? (y/n)":say"do you want instructions"
  7. 70 geta$:ifa$<>""then70
  8. 80 geta$:ifa$=""then80
  9. 90 ifa$="y"thengosub4820
  10. 100 printchr$(142)
  11. 110 goto4420
  12. 120 gosub160:goto3830
  13. 130 rem
  14. 140 rem decode and print output
  15. 150 rem
  16. 160 poke29,0:ss$="":ifp$=""thenreturn
  17. 170 forp=1tolen(p$):j=asc(mid$(p$,p,1))
  18. 180 s1$=chr$(abs(j+155*(j>64andj<91)+187*(j>96andj<123)))
  19. 190 ss$=ss$+s1$:prints1$;:next
  20. 200 sayss$:poke29,0:print:return
  21. 210 rem encode input
  22. 220 v$="":ifv0$=""thenreturn
  23. 230 forp=1tolen(v0$):j=asc(mid$(v0$,p,1))
  24. 240 v$=v$+chr$(abs(j+155*(j>64andj<91)+187*(j>96andj<123))):next
  25. 250 return
  26. 260 gosub160:goto3830
  27. 270 rem
  28. 280 rem descriptions of individual rooms
  29. 290 rem
  30. 300 a$="zm zriolxp. gsviv rh z yofv yfgglm sviv":s=2:return
  31. 310 a$="z mziild xliirwli":n=1:s=3:return
  32. 320 a$="z mziild xliirwli":n=2:s=4:return
  33. 330 a$="z mziild xliirwli":n=3:s=5:return
  34. 340 a$="z hnzoo illn":n=4:s=6:return
  35. 350 a$="z wvxlmgznrmzgrlm xsznyvi":b$="gsviv rh z yofv yfgglm sviv":n=5
  36. 360 s=7:return
  37. 370 a$="z hnzoo hgliztv xsznyvi":n=6:s=8:w=12:return
  38. 380 stop
  39. 390 a$="z hnzoo xsznyvi":n=7:s=9:w=13:return
  40. 400 a$="z hnzoo vovxgilmrx ozylizglib":n=7:s=10:w=14:return
  41. 410 a$="z yrloltrxzo ozylizglib.  gsviv rh z ivw yfgglm lm gsv dzoo":n=9:
  42. 420 w=15:return
  43. 430 a$="z hgliztv xsznyvi":w=16:return
  44. 440 a$="z ozitv xsznyvi":b$="gsviv rh z xzyrmvg sviv":s=13:w=17:e=7:return
  45. 450 a$="z hgizmtv kfikov illn.  gsviv rh z yofv yfgglm sviv":n=12:s=14:w=18
  46. 460 e=8:return
  47. 470 a$="z hnzoo luurxv":n=13:s=15:e=9:return
  48. 480 a$="z hnzoo illn drgs z xziw gzyov rm gsv   xvmgvi":n=14:s=16:w=20
  49. 490 e=10:return
  50. 500 a$="z ozitv luurxv.  gsviv rh z wvhp sviv":n=15:w=21:e=11:return
  51. 510 a$="z luurxv drgs z ozitv wvhp":s=18:e=12:return
  52. 520 a$="z hgliztv illn":n=17:s=19:e=13:return
  53. 530 a$="z ozitv szoo":n=18:s=20:return
  54. 540 a$="zm vmgvigzrmnvmg illn. z hxivvm ivhgh lmgsv dzoo"
  55. 550 b$="gsviv rh z yofv zmw z ivw yfgglm fmwvi  gsv hxivvm":n=19:s=21
  56. 560 e=15:return
  57. 570 a$="z wzgz ivxliw hgliztv illn":n=20:e=16:return
  58. 580 a$="izwzi xlmgilo.  gsviv rh z hnzoo hxivvm sviv":s=23:w=27:return
  59. 590 a$="z nvwrxzo hgzgrlm.  gsviv rh z ozitv    gzyov sviv":n=22:s=24
  60. 600 w=28:return
  61. 610 a$="z hvxfirgb hgzgrlm":n=23:return
  62. 620 print"[147]":ifa=46then630
  63. 630 a$="z izwrl illn":s=26:w=30:return
  64. 640 a$="z hnzoo illn.  gsviv rh z hzuv rm gsv   hlfgs dzoo":n=25:w=31:return
  65. 650 a$="gsv ilylg xlmgilo xvmgvi.  gsviv rh z   hnzoo xlmgilo xlnkfgvi nlfmgvw"
  66. 660 a$=a$+" rm gsv   dzoo":b$="":w=32:e=22:return
  67. 670 a$="gsv dvzklmh hgliztv illn":s=29:w=33:e=23:return
  68. 680 a$="z oryizib":n=28:s=30:w=34:return
  69. 690 a$="z hvxfirgb xsvxp zivz":n=29:w=36:e=25:return
  70. 700 a$="z hnzoo illn drgs z wvhp.  z hrtm ivzwh":b$="'kivhhfiv gl ivzxgli.'  z"
  71. 710 b$=b$+" yofv yfgglm rh olxzgvw fmwvi gsv hrtm":e=26:return
  72. 720 a$="ozfmxs xlmgilo.  gsviv rh z wvhp sviv":s=33:w=37:e=27:return
  73. 730 a$="z hnzoo xliirwli":n=32:s=34:e=28:return
  74. 740 a$="z hgizmtv yofv illn.  gsviv rh z ivw    yfgglm sviv":n=33:s=35:e=29
  75. 750 return
  76. 760 a$="z grmb hgliztv illn":n=34:w=40:return
  77. 770 a$="z hnzoo xsznyvi.  z wlli dvhg ovzwh gl   gsv mfxovzi ivzxgli":e=30
  78. 780 return
  79. 790 a$="z hnzoo,mziild xliirwli":n=42:e=32:return
  80. 800 a$="gsv xlnkfgvi xvmgvi.  gsviv rh z hnzoo   holg rm gsv xlnkfgvi":s=39
  81. 810 return
  82. 820 a$="gsv xsvnrxzo ozy":n=38:s=40:return
  83. 830 a$="gsv iv zxgli xlmgilo xvmgvi. gsviv rh z yofv yfgglm zmw z ivw lmv.  z"
  84. 840 a$=a$+" hrtm hzbh xlmgilo - ivw=fk, yofv=wldm":n=39:e=35:return
  85. 850 a$="gsv mfxovzi ivzxgli. z xlnkfgvi ivhgh lmgsv dzoo":e=36:return
  86. 860 a$="gsv dvhg vmw lu z olmt xliirwli":s=37:e=43:return
  87. 870 a$="gsv vzhg vmw lu z olmt xliirwli":w=42:e=44:return
  88. 880 a$="z hvxfirgb xvmgvi":w=43:e=45:return
  89. 890 a$="z hnzoo ozfmxs zivz":b$="gsviv rh z hnzoo holg mvcg gl gsv ozfmxstzgv"
  90. 900 w=44:return
  91. 910 rem
  92. 920 rem extended room descriptions
  93. 930 rem
  94. 940 ifa=10and(d3=1ord3=2)thenc$="gsv nlmhgvi xztv rh lkvm"
  95. 950 ifa=12andd5=0thenc$="gsv xzyrmvg rh olxpvw"
  96. 960 ifa=12andd5=1thenc$="gsv xzyrmvg rh lkvm"
  97. 970 ifa=20andd6=0thenc$="gsv hxivvm rh yozmp"
  98. 980 ifa=20andd6=1thenc$="z nlerv rh yvrmt kozbvw lm gsv hxivvm"
  99. 990 ifa=26andd9=0thenc$="gsv hzuv rh olxpvw"
  100. 1000 ifa=26andd9=1thenc$="gsv hzuv rh lkvm"
  101. 1010 ifa=26ande2=0thenc$="gsv xlnkfg vi rh zxgrev"
  102. 1020 ifa=27ande2=1thenc$="gsv xlnkfgvi rh wvhgilbvw"
  103. 1030 ifa=36ande6=0thenc$="gsv ivzxgli wlli rh urinob olxpvw"
  104. 1040 ifa=36ande6=1thenc$="gsv ivzxgli wlli rh lkvm":w=41
  105. 1050 ifa=45ande9=0thenc$="gsv ozfmxs tzgv rh xolhvw"
  106. 1060 ifa=45ande9=1thenc$="gsv ozfmxs tzgv rh lkvm":e=46
  107. 1070 rem
  108. 1080 rem generate the list of visible            items amd available exits.
  109. 1090 rem
  110. 1100 a$=a$+".":iflen(b$)>3thenb$=b$+"."
  111. 1110 iflen(c$)>3thenc$=c$+"."
  112. 1120 ifn<>0thene$="mligs "
  113. 1130 ifs<>0thene$=e$+"hlfgs "
  114. 1140 ifw>0thene$=e$+"dvhg "
  115. 1150 ife>0thene$=e$+"vzhg "
  116. 1160 poke29,0:ife$<>""thene$=left$(e$,len(e$)-1)
  117. 1170 poke29,0
  118. 1180 rem describe current location, visi         ble items, and available exits.
  119. 1190 rem
  120. 1200 print"[147]you are in:":say"you are in":p$=a$:gosub160:print
  121. 1210 ifb$<>""thenp$=b$:gosub160
  122. 1220 ifc$<>""thenp$=c$:gosub160
  123. 1230 print"objects you can see:":say"objects you can see":p$=" ":fort=1to16
  124. 1240 ifa=i(t)thenp$=i$(t):gosub160
  125. 1250 next:ifp$=" "thenp$="-mlgsrmt-":gosub160
  126. 1260 print"exits: ":say"exits":p$=e$:gosub160
  127. 1270 rem
  128. 1280 rem print out additional warnings,          messages, etc.
  129. 1290 rem
  130. 1300 if(a=40ora=35ora=30ora=31)andi(4)=0andf3=0then1320
  131. 1310 goto1330
  132. 1320 p$="gsv hnzoo yozxp wverxv rh yormprmt":gosub160
  133. 1330 ifa=36andi(4)-0andf3=0thenp$="gsv hnzoo yozxp wverxv rh uozhsrmt":goto1350
  134. 1340 goto1360
  135. 1350 p$=p$+"      yirtsgob":gosub160
  136. 1360 poke29,0:iff4<>0thenf4$=right$(str$(f4),2):poke29,0:goto1380
  137. 1370 poke29,0:goto1390
  138. 1380 p$="gsv xlnkfgvi hzbh: '"+f4$+" nrmfgvh fmgro wv-hgifxgrlm'":gosub160
  139. 1390 ifd3=1thenp$="- - - zorvm nlmhgvi zggzxprmt - - -":gosub160
  140. 1400 ifd7=1ore0=1ore3=1ore7=1thenp$="- - - hvxfirgb kzgilo zggzxprmt":goto1420
  141. 1410 goto1430
  142. 1420 p$=p$+" - - -":gosub160
  143. 1430 rem
  144. 1440 rem get and interpret command.
  145. 1450 rem
  146. 1460 print"command";:say"command.":inputv0$:gosub220
  147. 1470 fort=1to4:poke29,0:ifv$=left$(v$(t),1)thenv$=v$(t)
  148. 1480 poke29,0:next t:poke29,0
  149. 1490 iflen(v$)<3then1200
  150. 1500 poke29,0:v1$=left$(v$,3):v2$=right$(v$,3):poke29,0
  151. 1510 fort=1to17:poke29,0:ifv1$=left$(v$(t),3)thenv1=t:poke29,0
  152. 1520 nextt:ifv1=0thenp$="r wlm'g fmwvihgzmw dszg blf dzmg.":gosub160:goto1540
  153. 1530 goto1550
  154. 1540 forii=1to1000:next:goto3830
  155. 1550 fort=1to16:poke29,0:ifv2$=right$(i$(t),3)thenv2=t:poke29,0
  156. 1560 nextt:poke29,0:goto1600
  157. 1570 print"hit g to continue":say"hit g.to continu."
  158. 1580 getzz$:ifzz$<>""then1580
  159. 1590 getzz$:ifzz$<>"g"then1590
  160. 1600 ifv1=0then1640
  161. 1610 ifv1<12then1630
  162. 1620 ifv1>11thenzz=v1-11:goto1640
  163. 1630 onv1goto1690,1730,1770,1840,1930,2250,2310,2330,2700,2790,2830
  164. 1640 onzzgoto3080,3170,3220,3470,3730,3790
  165. 1650 goto3830
  166. 1660 rem
  167. 1670 rem handle commands
  168. 1680 rem
  169. 1690 ifn=0then1900
  170. 1700 ifd3=1thenp$="gsv nlmhgvi yolxph gsv vcrg":goto120
  171. 1710 ifd7=1ore3=1then1890
  172. 1720 a=n:goto3830
  173. 1730 ifs=0then1900
  174. 1740 ifs=24andd8<>0ande2<>1thend7=1:gosub1920
  175. 1750 ifs=30ande4<>0ande2<>1thene3=1:gosub1920
  176. 1760 a=s:goto3830
  177. 1770 ifw=0then1900
  178. 1780 ifd3=1thenp$="gsv nlmhgvi yolxph gsv vcrg":goto120
  179. 1790 ife0=1ore3=1ore7=1then1890
  180. 1800 ifw=41andf3=0thenp$="izwrzgrlm uiln gsv ivzxgli srgh blf":gosub160:goto4250
  181. 1810 ifw=30ande4<>0ande2<>1thene3=1:gosub1920
  182. 1820 ifw=27ande1<>0ande2<>1thene0=1:gosub1920
  183. 1830 a=w:goto3830
  184. 1840 ife=0then1900
  185. 1850 ife0=1ore3=1ore7=1then1890
  186. 1860 ife=27ande1<>0ande2<>1thene0=1:gosub1920
  187. 1870 ife=44ande8<>0ande2<>1thene7=1:gosub1920
  188. 1880 a=e:goto3830
  189. 1890 p$="gsv hvxfirgb zmwilrw yolxph gsv vcrg":goto120
  190. 1900 p$="gsviv rh ml dzb gl tl gszg wrivxgrlm":gosub160:forj=1to1500:next
  191. 1910 goto3830
  192. 1920 p$="z hvxfirgb zmwilrw zdzrgh blf":gosub160:return
  193. 1930 ifa=1andv2$="lxp"thenp$="gsv zriolxp lkvmh zmw blf ziv yoldm":goto1950
  194. 1940 goto1960
  195. 1950 p$=p$+" lfg rmgl gsv ezxffn lu hkzxv":gosub160:goto4250
  196. 1960 ifa=12andv2$="mvg"andd5=0andi(2)<>0thenp$="blf qfhg zivm'g":goto1980
  197. 1970 goto1990
  198. 1980 p$=p$+" hgilmt vmlfts gl ulixv  rg lkvm":goto120
  199. 1990 ifa=12andv2$="mvg"andd5=0andi(2)=0thenp$="gsv xildyzi svokvw.":goto2010
  200. 2000 goto2020
  201. 2010 p$=p$+"  gsv xzyrmvg rh mld lkvm":gosub160:d5=1:i(5)=abs(i(5)):goto3830
  202. 2020 ifa=12andv2$="mvg"andd5=1thenp$="gsv xzyrmvg rh zoivzwb lkvm":goto120
  203. 2030 ifa=16andv2$="vhp"thenprint"ok":say"o k.":i(6)=abs(i(6)):goto3830
  204. 2040 ifa=17andv2$="vhp"thenprint"ok":say"o k.":i(7)=abs(i(7)):goto3830
  205. 2050 ifa=26andv2$="zuv"andd9=1thenp$="gsv hzuv rh zoivzwb lkvm":goto120
  206. 2060 ifa=26andv2$="zuv"andd9=0thenp$="r wlm'g szev gsv pvb ":goto2080
  207. 2070 goto2090
  208. 2080 p$=p$+"gl lkvm gsv hzuv":goto120
  209. 2090 ifa=31andv2$="vhp"thenp$="lp. blf urmw mlgsrmt rmhrwv":goto120
  210. 2100 ifa=32andv2$="vhp"thenprint"ok":say"o k.":i(14)=abs(i(14)):goto3830
  211. 2110 ifa=36andv2$="lli"ande6=1thenp$="gsv wlli rh zoivzwb lkvm":goto120
  212. 2120 ifa=36andv2$="lli"ande6=0andi(6)<>0thenp$="blf wlm'g szev gsv":goto2140
  213. 2130 goto2150
  214. 2140 p$=p$+" pvb gl gsv wlli":goto120
  215. 2150 ifa=36andv2$="lli"ande6=0andi(6)=0ande5=0thenp$="blf ziv ":goto2170
  216. 2160 goto2180
  217. 2170 p$=p$+"hfxpvw rmgl gsv fmkivhhfiravw   ivzxgli yfrowrmt":gosub160:goto4250
  218. 2180 ifa=36andv2$="lli"andi(6)=0thenp$="gsv wlli rh mld lkvm":goto2200
  219. 2190 goto2210
  220. 2200 gosub160:e6=1:goto3830
  221. 2210 ifa=41andv2$="mvo"thenp$="gsv kzmvo rh urinob olxpvw":goto120
  222. 2220 ifa=45andv2$="lxp"ande9=1thenp$="gsv zriolxp rh zoivzwb lkvm":goto120
  223. 2230 ifa=45andv2$="lxp"ande9=0thenp$="gsviv zivm'g zmb erhryov xlmgiloh":goto120
  224. 2240 p$="r xzm'g wl gszg":goto120
  225. 2250 ifv2$="gvi"orv2$="lrw"thenp$="wlm'g yv ir wrxfolfh":goto120
  226. 2260 ifv2=0thenp$="r xzm'g wl gszg":goto120
  227. 2270 ifi(v2)=0thenp$="blf zoivzwb szev gszg":goto120
  228. 2280 ifa<>i(v2)thenp$="r wlm'g hvv rg sviv":goto120
  229. 2290 ifp4>8thenp$="hliib, blf xzm'g xziib zmbgsrmt nliv":goto120
  230. 2300 p4=p4+1:i(v2)=0:print"ok":say"o k.":goto3830
  231. 2310 ifv2=0thenp$="blf wlm'g szev gszg":goto120
  232. 2320 p4=p4-1:i(v2)=a:print"ok":say"o k.":goto3830
  233. 2330 ifi(5)<>0thenp$="blf wlm'g szev z dvzklm":goto120
  234. 2340 ifa=1andv2$="lxp"thenp$="blf ziv yoldm lfg lu gsv zriolxp":goto2360
  235. 2350 goto2370
  236. 2360 p$=p$+" rmgl   gsv ezxffn lu hkzxv":gosub160:goto4250
  237. 2370 ifa=27andv2$="gvi"thenp$="gsv xlnkfgvi rh wvhgilbvw":gosub160:goto2390
  238. 2380 goto2400
  239. 2390 e2=1:e0=0:goto3830
  240. 2400 ifa=38andv2$="gvi"thenp$="gsv hslg ivuovxgh luu lu gsv xlnkfgvi":goto2420
  241. 2410 goto2430
  242. 2420 gosub160:goto4250
  243. 2430 ifa=41andv2$="gvi"xp$="gsv dslov mfxovzi ivzxgli rh vckolwrm":goto2450
  244. 2440 goto2460
  245. 2450 p$=p$+"t":gosub160:goto4250
  246. 2460 ifv2$="rwh"orv2$="ylg"orv2$="ilo"orv2$="iwh"orv2$="ziw"thenv2$="lrw"
  247. 2470 ifv2$<>"gvi"andv2$<>"lrw"thenp$="gsv ozhvi hslg szh ml vuuvxg":goto120
  248. 2480 ifv2$="gvi"andd3=0thenp$="r wlm'g hvv zmb nlmhgvi sviv":goto120
  249. 2490 iffv2$="lrw"andd7=0ande0=0ande3=0ande7=0thenp$="r wlm'g hvv zmb":goto2510
  250. 2500 goto2520
  251. 2510 p$=p$+" z mwilrwh sviv":goto120
  252. 2520 t=int(100*rnd(1))+1:ift>p2+p3+50thenp$="blf uriv zmw nrhh":goto120
  253. 2530 ifd3=1thenp$="blf srg gsv nlmhgvi":gosub160:d4=d4-((10+p2+p3)/2):goto2550
  254. 2540 goto2560
  255. 2550 ifd4<=0thend3=0:d4=0:p$="blf szev proovw rg":goto120
  256. 2560 ifd7=1thenp$="blf srg gsv zmwilrw":gosub160:d8=d8-((5+p2+p3)/2):goto2580
  257. 2570 goto2590
  258. 2580 ifd8<=0thend7=0:d8=0:p$="rg rh wvhgilbvw":goto120
  259. 2590 ife0=1thenp$="blf srg gsv zmwilrw":gosub160:e1=e1-((5+p2+p3)/2):goto2610
  260. 2600 goto2620
  261. 2610 ife1<=0thene0=0:e1=0:p$="rg rh wvhgilbvw":goto120
  262. 2620 ife3=1thenp$="blf srg gsv zmwilrw":gosub160:e4=e4-((5+p2+p3)/2):goto2640
  263. 2630 goto2650
  264. 2640 ife4<=0thene3=0:e4=0:p$="rg rh wvhgilbvw":goto120
  265. 2650 ife7=1thenp$="blf srg gsv zmwilrw":gosub160:e8=e8-((5+p2+p3)/2):goto2670
  266. 2660 goto2680
  267. 2670 ife8<=0thene7=0:e8=0:p$="rg rh wvhgilbvw":goto120
  268. 2680 ifd3=1thenp$="rg rh hgroo zorev":goto120
  269. 2690 p$="gsv zmwilrw rh hgroo ufmxgrlmrmt":goto120
  270. 2700 ifv2=0thenp$="r xzm'g wl gszg":goto120
  271. 2710 ifi(v2)<>0thenp$="r wlm'g szev gszg":goto120
  272. 2720 ifv2<>9andv2<>14thenp$="r xzm'g wl gszg":goto120
  273. 2730 if(v2=9anda=44)or(v2=14anda=38)thenp$="mlgsrmt szkkvmh":gosub160
  274. 2740 ifv2=9anda=38thenf4=35:p$="gsv xlnkfgvi ivkorvh: 'yzhv wvhgifxg":goto2760
  275. 2750 goto2780
  276. 2760 p$=p$+"    hvjfvmxv hgzigvw' wvhgifxgrlm rm 34     nrmfgvh.":gosub160
  277. 2770 p4=p4-1:i(9)=100:goto3830
  278. 2780 ifv2=14anda=45thenp$="gsv tzgv lkvmh":gosub160:e9=1:goto3830
  279. 2790 ifv2<>10thenp$="wlm'g yv irwrxfolfh":goto120
  280. 2800 ifi(10)<>0thenp$="blf wlm'g szev gszg":goto120
  281. 2810 print"ok":say"o k.":i(10)=50:p4=p4-1:p1=p1+5+p3:ifp0<p1thenp0=p1
  282. 2820 goto3830
  283. 2830 ifa=1andv2$="ofv"thenp$="gsv zriolxp lkvmh...  blf ziv yoldm":goto2850
  284. 2840 goto2860
  285. 2850 p$=p$+" lfg rmgl gsv ezxffn lu hkzxv":gosub160:goto4250
  286. 2860 ifa=6andv2$="ofv"thenp$="[129]z hgizmtv, lizmtv told xlevih blf zmw":goto2880
  287. 2870 goto2890
  288. 2880 p$=p$+"   gsvm uzwvh zdzb[155]":goto120
  289. 2890 ifa=10andv2$="ivw"andd3=1thenp$="mlgsrmt szkkvmh":goto120
  290. 2900 ifa=10andv2$="ivw"thend3=1:p$="zm zorvm nlmhgvi rh ivovzhvw.  ":goto2920
  291. 2910 goto2930
  292. 2920 p$=p$+"rg rh    zggzxprmt blf!":goto120
  293. 2930 ifa=13andv2$="ofv"thena=34:pokesc,1:forbb=1to200:next:pokesc,0:goto2950
  294. 2940 goto2970
  295. 2950 p$="z uozhs lu ortsg gvnklizirob"
  296. 2960 p$=p$+" yormwh blf":goto120
  297. 2970 ifa=20andv2$="ivw"andd6=0thenp$="mlgsrmt szkkvmh":goto120
  298. 2980 ifa=20andv2$="ivw"thend6=0:p$="gsv hxivvm tlvh yozmp":goto120
  299. 2990 ifa=20andv2$="ofv"thend6=1:p$="gsv hxivvm ortsgh fk":goto120
  300. 3000 ifa=31andv2$="ofv"thene5=1:print"ok":say"o k.":goto3830
  301. 3010 ifa=34andv2$="ivw"thena=13:pokesc,1:forbb=1to200:next:pokesc,0:goto3030
  302. 3020 goto3050
  303. 3030 p$="z uozhs lu ortsg gvnklizirob "
  304. 3040 p$=p$+"yormwh blf":goto120
  305. 3050 ifa=40andv2$="ivw"thenf3=0:print"ok":say"o k.":goto3830
  306. 3060 ifa=40andv2$="ofv"thenf3=1:print"ok":say"o k.":goto3830
  307. 3070 p$="mlgsrmt szkkvmh":goto120
  308. 3080 ifa=22andv2$="vvm"thenp$="blf xzm hvv mlgsrmt lu rmgvivhg":goto3100
  309. 3090 goto3110
  310. 3100 p$=p$+" lm gsv  izwzi":goto120
  311. 3110 ifv2=0thenp$="r wlm'g szev gszg":goto120
  312. 3120 ifi(v2)<>0anda<>i(v2)thenp$="r wlm'g szev gszg":goto120
  313. 3130 ifv2=3orv2=13thenp$="r hvv mlg srmt hkvxrzo":goto120
  314. 3140 ifv2=9thenp$="hliib, lmob z xlnkfgvi xzm ivzw z       kiltizn":goto120
  315. 3150 ifv2=16thenp$="gsv kozmh ziv hvzovw...lmob xlnnzmw xzm lkvm gsvn":goto120
  316. 3160 p$="r xzm'g ivzw gszg":goto120
  317. 3170 p$="[147]- - - kozbvi'h rmevmglib - - -":gosub160
  318. 3180 print:fort=1to16:ifi(t)=0thenp$="- "+i$(t):gosub160
  319. 3190 nextt
  320. 3200 print:s1$="hit return[146] to continue":prints1$;:says1$:inputt$:print
  321. 3210 goto4000
  322. 3220 ifv2=0thenp$="r xzm'g wl gszg":goto120
  323. 3230 ifi(v2)<>0thenp$="r xzm'g wl szev":goto120
  324. 3240 ifv2=1anda=12andd5=0thenp$="gsv xzyrmvg olxp rh wvhgilbvw":goto3260
  325. 3250 goto3270
  326. 3260 gosub160:d5=1:i(1)=100:i(5)=abs(i(5)):p4=p4-1:goto3830
  327. 3270 if(v2=1orv2=15)and(d3=1ord7=1ore0=1ore3=1ore7=1)theni(v2)=100:goto3290
  328. 3280 goto3300
  329. 3290 p4=p4-1:goto3830
  330. 3300 if(v2=1orv2=15)anda=1thenp$="gsv zriolxp rh wvhgilbvw...blf ":goto3320
  331. 3310 goto3330
  332. 3320 p$=p$+"ziv yoldmlfg rmgl gsv ezxffn lu hkzxv!":gosub160:goto4250
  333. 3330 if(v2=1orv2=15)anda=35ande6=0ande5=0thenp$="gsv wlli rh wvhgilb":goto3350
  334. 3340 goto3370
  335. 3350 p$=p$+"vw... blf ziv hfxpvw rmgl gsv fmkivhhfiravw ivzxgli yfrowrmt"
  336. 3360 gosub160:goto4250
  337. 3370 if(v2=1orv2=15)anda=36ande6=0andf3=0thenp$="gsv wlli rh wvhgilb":goto3390
  338. 3380 goto3400
  339. 3390 p$=p$+"vw. blf ziv ylnyziwvwdrgs izwrzgrlm":gosub160:goto4250
  340. 3400 if(v2=1orv2=15)anda=36ande6=0thenp$="gsv wlli rh wvhgilbvw":goto3420
  341. 3410 goto3430
  342. 3420 gosub160:e6=1:i(v2)=100:p4=p4-1:goto3830
  343. 3430 ifv2=1orv2=15thenp$="gsv "+i$(v2)+" szh ml vuuvxg:gosub40:goto19650
  344. 3440 [137]3460
  345. 3450 i(v2)[178]100:p4[178]p4[171]1:[137]3830
  346. 3460 [137]2310
  347. 3470 [139]v2[178]0[167]p$[178]"r xzm'g wl gszg":[137]120
  348. 3480 [139]i(v2)[179][177]0[167]p$[178]"r wlm'g szev gszg":[137]120
  349. 3490 [139]v2[178]5[175]d3[178]1[167]v2$[178]"gvi"
  350. 3500 [139]v2[178]5[175](d7[178]1[176]e0[178]1[176]e3[178]1[176]e7[178]1)[167]v2$[178]"lrw"
  351. 3510 [139]v2[178]5[167]2330
  352. 3520 [139]v2[178]4[175]f3[178]0[175](a[178]40[176]a[178]35[176]a[178]30[176]a[178]31)[167]p$[178]"gsv yozxp wverx":[137]3540
  353. 3530 [137]3550
  354. 3540 p$[178]p$[170]"v rh yormprmt":[137]120
  355. 3550 [139]v2[178]4[175]f3[178]0[175]a[178]36[167]p$[178]"gsv yozxp wverxv rh uozhsrmt yirtsgob":[137]120
  356. 3560 [139]v2[178]4[167]p$[178]"gsviv zivm'g zmb erhryov xlmgiloh lm grsh wverxv":[137]120
  357. 3570 [139]v2[178]12[167]i(12)[178]a:p4[178]p4[171]1:i$(12)[178]"zinvw kslglm ylny":[137]3590
  358. 3580 [137]3600
  359. 3590 f2[178]35:p$[178]"gsv ylny drod vckolwv rm 35 nrmfgvh":[137]120
  360. 3600 [139]v2[178]2[175]a[178]12[175]d5[178]0[167]d5[178]1:p$[178]"gsv xzyrmvg rh mld lkvm":[137]3620
  361. 3610 [137]3630
  362. 3620 [141]160:i(5)[178][182](i(5)):[137]3830
  363. 3630 [139]v2[178]2[175]a[178]12[175]d5[178]1[167]p$[178]"gsv xzyrmvg rh zoivzwb lkvm":[137]120
  364. 3640 [139]v2[178]7[175]a[178]26[175]d9[178]0[167]d9[178]1:i(16)[178][182](i(16)):p$[178]"gsv hzuv lkvmh":[137]120
  365. 3650 [139]v2[179][177]11[167]p$[178]"dszg wl blf dzmg nv gl wl drgs gsv      ":[137]3670
  366. 3660 [137]3680
  367. 3670 p$[178]p$[170]i$(v2)[170]"?":[137]120
  368. 3680 [139]i(8)[179][177]0[167]p$[178]"gsviv zivm'g zmb yzggvirvh uli gsv izwrl":[137]120
  369. 3690 [139]f2[179][177]0[167]f2$[178][196](f2):[153]:p$[178]"z elrxv hzvh 'ylny hgzgfh":[137]3710
  370. 3700 [137]3720
  371. 3710 [141]160:p$[178]f2$[170]" nrmfgvh fmgro wvglmzgrlm'":[137]120
  372. 3720 p$[178]"gsv izwrl rh hrovmg":[137]120
  373. 3730 p$[178]"load- - - kozbvi'h hgzgfh - - -":[141]160:[153]
  374. 18844 p1$[178][196](p1):p$[178]"xfiivmg srg klrmgh  = "[170]p1$:[141]160
  375. 3750 p2$[178][196](p2):p$[178]"wvcgvirgb zggiryfgv = "[170]p2$:[141]160
  376. 3760 p3$[178][196](p3):p$[178]"ofxp zggiryfgv      = "[170]p3$:[141]160
  377. 3770 [153]:s1$[178]"hit returnwait to continue":[153]s1$;:says1$:[133]t$:[153]
  378. 3780 [137]4000
  379. 3790 p$[178]"loadtznv levi":[141]160:[137]4260
  380. 3800 [143]
  381. 3810 [143] update player status.  conduct          combat if necessary
  382. 3820 [143]
  383. 3830 [139]f2[179][177]0[167]f2[178]f2[171]1:[139]f2[179][178]0[167]4170
  384. 3840 [139]f4[179][177]0[167]f4[178]f4[171]1:[139]f4[179][178]0[167]4170
  385. 3850 [139]p1[179]p0[167]p5[178]p5[170].5:[139]p5[178]1[167]p5[178]0:p1[178]p1[170]1
  386. 3860 [139]d3[178]0[175]d7[178]0[175]e0[178]0[175]e3[178]0[175]e7[178]0[167]3960
  387. 3870 t[178][181]([187](1)[172]100)
  388. 3880 [139]d3[178]1[167]p$[178]"gsv nlmhgvi zggzxph... ":[141]160
  389. 3890 [139]d3[179][177]1[167]p$[178]"gsv hvxfirgb zmwilrw hsllgh... ":[141]160
  390. 3900 [139]t[177]80[171](p2[170]p3)[167]p$[178]"rg nrhhvh":[141]160:[137]3960
  391. 3910 zz[178][181](((5[172][187](1))[170]1)[170]((5[172][187](1))[170]1)[170]((5[172][187](1))[170]1)[170]((5[172][187](1))[170]1)[170]15[171]p3)
  392. 3920 p1[178]p1[171]zz
  393. 3930 [139]d3[179][177]1[167]p1[178]p1[170]5
  394. 3940 [139]p1[179]0[167]4250
  395. 3950 [151]sc,2:[129]bb[178]1[164]200:[130]:[151]sc,0:p$[178]"blf ziv srg!":[141]160
  396. 3960 [139]v1[178]0[176]v1[177]4[176]d3[170]d7[170]e0[170]e3[170]e7[177]0[167][129]zz[178]1[164]3500:[130]
  397. 3970 [143]
  398. 3980 [143] initialize for new turn. go to          appropriate room description
  399. 3990 [143]
  400. 4000 v$[178]"":v1$[178]"":v2$[178]"":v1[178]0:v2[178]0:a$[178]"":b$[178]"":c$[178]"":d$[178]"":e$[178]"":n[178]0:s[178]0:w[178]0
  401. 4010 e[178]0
  402. 4020 [139]a[177]0[175]a[179]16[137]4060
  403. 4030 [139]a[177]15[175]a[179]29[167]b[178]a[171]15:[137]4080
  404. 4040 [139]a[177]28[175]a[179]42[167]b[178]a[171]28:[137]4100
  405. 4050 [139]a[177]41[167]b[178]a[171]41:[137]4120
  406. 4060 [145]a[141]300,310,320,330,340,350,370,390,400,410,430,440,450,470,480
  407. 4070 [137]940
  408. 4080 [145]b[141]500,510,520,530,540,570,580,590,610,630,640,650,670
  409. 4090 [137]940
  410. 4100 [145]b[141]680,690,700,720,730,740,760,770,790,800,820,830,850
  411. 4110 [137]940
  412. 4120 [145]b[141]860,870,880,890,4290
  413. 4130 [137]940
  414. 4140 [143]
  415. 4150 [143] evaluate end-game conditions &          display appropriate messages
  416. 4160 [143]
  417. 4170 [153]"load":[139]a[178]46[167]f4[178][171]1:[137]4290
  418. 4180 p$[178]"gsv kslglm ylny vckolwvh...gsv vmgriv   xlnkovc rh wvhgilbvw":[141]160
  419. 4190 [139]a[178]38[167]p$[178]"gsv xlnkfgvi uozhsvh yirtsgob, vnrggrmt hkziph":[137]4210
  420. 4200 [137]4220
  421. 4210 p$[178]p$[170]" rm zoo wrivxgrlmh":[141]160
  422. 4220 p$[178]"gsv xlnkovc hfwwvmob vckolwvh rmgl nro- orlmh lu krvxvh":[141]160
  423. 4230 p$[178]"blf ziv proovw yb gsv uzoormt wvyirh    zilfmw blf":[141]160:[153]:
  424. 4240 [153]:[137]4260
  425. 4250 p$[178]"blf ziv wvzw!":[141]160
  426. 4260 [143]
  427. 4270 [129]x[178]1[164]2000:[130]
  428. 4280 [137]6370
  429. 4290 p$[178]"gsv hkzxv hsrk hfwwvmob orugh rmgl liyrgzilfmw gsv kozmvg":[141]160
  430. 4300 [139]((f2[178]0)[176](f2[179][177]0[175]i(12)[179][177]41))[175]f4[178]0[167]p$[178]"blf wrwm'g ":[137]4320
  431. 4310 [137]4340
  432. 4320 p$[178]p$[170]"wvhgilb gsv yzhv.  blf szev  uzrovw blfi nrhhrlm.":[141]160:[153]
  433. 4330 [137]4260
  434. 4340 p$[178]"uiln z wrhgzmxv, blf xzm hvv gsv zorvm  yzhv vckolwv":[141]160
  435. 4350 [139]i(16)[179][177]0[167]p$[178]"blf wrwm'g ivx levi gsv hvxivg kozmh":[137]4370
  436. 4360 [137]4380
  437. 4370 p$[178]p$[170]"     mvvwvw yb hgzi xlnnzmw":[141]160:[153]:[137]4260
  438. 4380 p$[178]"nrhhrlm rh z hfxxvhh!":[141]160:[137]4260
  439. 4390 [143]
  440. 4400 [143] print title page, initialize            workspace, read items & verbs
  441. 4410 [143]
  442. 4420 [153]"load":[140]
  443. 4430 [153]"     def   (NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$"
  444. 4440 [153]"        peeksys operation: sabotagedef peek"
  445. 4450 [153]"        mid$lenlenlenright$             (NULL)lenlenlen(NULL)"
  446. 4460 [153]"            peeklist by ray satodef peek    "
  447. 4470 [153]"           (NULL)(NULL)             mid$right$   "
  448. 4480 [153]"           peekopen c-64  versiondef peek   "
  449. 4490 [153]"           mid$right$             (NULL)(NULL)   ":
  450. 4500 [153]"            peekprint by tim bujadef peek    "
  451. 4510 [153]"         (NULL)tantan(NULL)             mid$tantanright$   "
  452. 4520 [153]"         peekopen war games versiondef peek   "
  453. 4530 [153]"         mid$tanright$               (NULL)tan(NULL)   ":
  454. 4540 [153]"           peekprint by  r.c.davisdef peek    "
  455. 4550 [153]"           mid$lenlenlenlenlenlenlenlenlenlenlenlenlentantan(NULL)list    "
  456. 4560 say"war games gorilla warfare."
  457. 4570 [129]t[178]1[164]16:[135]i$(t),i(t):[130]
  458. 4580 [129]t[178]1[164]17:[135]v$(t):[130]
  459. 4590 [129]t[178]1[164]40:p0[178]p0[170][181](2[172][187](1))[170]1:[130]t
  460. 4600 [143]
  461. 4610 [143] establish player-attribute              points.  jump to first room.
  462. 4620 [143]
  463. 4630 p1[178]p0
  464. 4640 [129]t[178]1[164]10:p2[178]p2[170][181](2[172][187](1))[170]1:[130]t
  465. 4650 [129]t[178]1[164]10:p3[178]p3[170][181](2[172][187](1))[170]1:[130]t
  466. 4660 [129]t[178]1[164]50:d4[178]d4[170][181](2[172][187](1))[170]1
  467. 4670 d8[178]d8[170][181](2[172][187](1))[170]1:e1[178]e1[170][181]([154][172][187](1))[170]1
  468. 4680 e4[178]e4[170][181](2[172][187](1))[170]1:e8[178]e8[170][181](2[172][187](1))[170]1:[130]t
  469. 4690 a[178]1:p4[178]1
  470. 4700 [141]300:[137]940
  471. 4710 [143]
  472. 4720 [143] item and verb data
  473. 4730 [143]
  474. 4740 [131]kozhgrx vckolhrev,0,xildyzi,7,xzovmwzi,8,hnzoo yozxp wverxv,9
  475. 4750 [131]ozhvi krhglo,-12,hvxfirgb pvb,-16,vovxgilmrx xlmgilo yzglm,-17
  476. 4760 [131]yzggvirvh,18,xlnkfgvi wvhgifxg kiltizn,21,hroevi krod,23
  477. 4770 [131]kligzyov izwrl,25,ozitv kslglm ylny,28
  478. 4780 [131]tzozxgrx xszig,32,ozfmxs hbhgvn xzhhvggv,-32,mrgiltobxvirm,39
  479. 4790 [131]hvxivg kozmh,-26
  480. 4800 [131]mligs,hlfgs,dvhg,vzhg,lkvm,tvg,wilk,hsllg,rmhvig,vzg,kfhs,ivzw
  481. 4810 [131]rmevmglib,gsild,fhv,hgzgfh,jfrg
  482. 4820 un[178]([194](0)[178]76):sc[178]53281[170]16402[172]un:[151]sc,0:[139]un[178]0[167][151]sc[171]1,0
  483. 4830 [153][199](142)"load         print  (NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenright$
  484. 4840 print"            [194][155] instructions[153] [194]         "
  485. 4850 print"            [202][195][195][195][195][201]    [213][195][195][195][195][203]     "
  486. 4860 print"                 [194][155] to [153][194]          "
  487. 4870 print"        [213][195][195][195][195][195][195][195][195][203]    [202][195][195][195][195][195][195][195][195][201]   "
  488. 4880 print"        [194][129] operation:  sabotage[153] [194]   "
  489. 4890 print"        [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][155]   "
  490. 4900 say"opperation saba toj.instructions":fort=1to1000:nextt
  491. 4910 print"[147]"chr$(14)"  [201]t is the year 2101 and war has broken";
  492. 4920 print"out between [197]arth and the distant planet[218]ekloke. [212]his alien power ";
  493. 4930 print"has establish-ed a large military complex on [205]ars thatwill soon be a ";
  494. 4940 print"great danger to [197]arth.   [200]idden in the massive installation are  sev";
  495. 4950 print"eral secret documents containing +he plans for an incredible defense ";
  496. 4960 print"shield--strong enough to stop an entire fleet ofspacecraft."
  497. 4970 say"it is the year twenty one o one"
  498. 4980 say"and war has broken out between earth and the distant planet zekloke."
  499. 4990 say"this alien power has established a large military complex on mars"
  500. 5000 say"that will soon be a great danger to earth"
  501. 5010 say"hidden in the massive installation are several se cret documents"
  502. 5020 say"containing the plans for an incredible defense shield."
  503. 5030 say"strong enough to stop an entire fleet of space craft."
  504. 5040 print"    [208]ress space bar[146] to continue..."
  505. 5050 say"hit space to continue."
  506. 5060 geta$:ifa$<>""then5060
  507. 5070 geta$:ifa$<>" "then5070
  508. 5080 print"[145]  [217]ou are a special agent and have just succeeded in sneaking into ";
  509. 5090 print"the alien    complex. [217]our mission is to destroy thisthreat to man";
  510. 5100 print"kind and return with plans for the powerful defense shield. [212]he "
  511. 5110 print"outcome of this mission will decide the fate of mankind."
  512. 5120 say"you are a special aygent"
  513. 5130 say"and have just succeeded in sneaking into the alien complex."
  514. 5140 say"your mission is to destroy this thret to man kind"
  515. 5150 say"and return with plans for the powerful defense shield."
  516. 5160 say"the outcome of this mission will decide the fate of mankind."
  517. 5170 print"   [208]ress space bar[146] for a few notes on"
  518. 5180 say"press space for a few notes on ohperation saba toj."
  519. 5190 print"[153]          [207][208][197][210][193][212][201][207][206]:[160][160][211][193][194][207][212][193][199][197]"
  520. 5200 geta$:ifa$<>""then5200
  521. 5210 geta$:ifa$<>" "then5210
  522. 5220 print"[147]          [207][208][197][210][193][212][201][207][206]:[160][160][211][193][194][207][212][193][199][197][155]"
  523. 5230 print"[212]he computer will always give you a   brief description of where ";
  524. 5240 print"you are, whatobjects you can see, and what exits are visible.  [217]ou ";
  525. 5250 print"move and act by typing in simple commands, generally consisting of";
  526. 5260 print"a verb and a noun. [201]f the computer tellsyou that there is a laser ";
  527. 5270 print"pistol in the room, for example, you might want to    type in the co";
  528. 5280 print"mmand [199][197][212][160][208][201][211][212][207][204].  [204]ater, you might be able to use it to [211][200][207][207][212]"
  529. 5290 print"[205][207][206][211][212][197][210][160]or for some other purpose.  [201]f  you no longer want to carry ";
  530. 5300 print"it, you can [196][210][207][208][160][208][201][211][212][207][204] whenever you please.  [193]n ob-ject will remain";
  531. 5310 print" in the room where it   was dropped until it is picked up again,";
  532. 5320 print" or until the game ends."
  533. 5330 say"the computer will always give you a brief description"
  534. 5340 say"of where you are.what objects you can see.and what exits are visible."
  535. 5350 say"you move and aact by typing in simple commands"
  536. 5360 say"gennerally consisting of a verrb and a noun."
  537. 5370 say"if the computer tells you that there is a laser pistull in the room"
  538. 5380 say"for example. you might want to type in the command.get pistull."
  539. 5390 say"later. you might be able to use it to shoot mong ster"
  540. 5400 say"or for some other purpus.  if you no longer want to carry i[169]"
  541. 5410 say"you can drop pistull whenever you please"
  542. 5420 say"an object will remain in the room where it was draupped"
  543. 5430 say"until it is picked up again": say"or until the game ends"
  544. 5440 print"   [208]ress space bar[146] for more notes on"
  545. 5450 say"press space for more notes on ohperation saba toj."
  546. 5460 print"[153]          [207][208][197][210][193][212][201][207][206]:[160][160][211][193][194][207][212][193][199][197]"
  547. 5470 geta$:ifa$<>""then5470
  548. 5480 geta$:ifa$<>" "then5480
  549. 5490 print"[147][155]             [205]ore notes on  [153]"
  550. 5500 print"          [207][208][197][210][193][212][201][207][206]:[160][160][211][193][194][207][212][193][199][197][155]"
  551. 5510 print"[211]ince the computer looks only at the  first three letters of the ";
  552. 5520 print"verb and the last three letters of the noun, you may use abbrevia";
  553. 5530 print"tions such as [211][200][207][212][197][210] (for   [211][200][207][207][212][160][205][207][206][211][212][197][210]) if you desire.  [205]ovement ";
  554. 5540 print"is accomplished by typing just a single letter rather than a two";
  555. 5550 print"-word command:  [206], [211], [197], or [215] for [206][207][210][212][200], [211][207][213][212][200], [197][193][211][212], or[215][197][211][212].  [212]yp";
  556. 5560 print"ing the single word [201][206][214][197][206][212][207][210][217] (or [201][206][214]) will display a list of what ";
  557. 5570 print"youare currently carrying.  [212]yping [211][212][193][212][213][211] (or [211][212][193]) will give you a ";
  558. 5580 print"readout of yourcurrent physical condition."
  559. 5590 say"since the computer looks only at the first three letters of the verrb"
  560. 5600 say"and the last three letters of the noun, you may use abrieviations"
  561. 5610 say"such as shooter.for shoot mong ster,if you desire."
  562. 5620 say"movement is accomplished by typing just a single letter"
  563. 5630 say"rather than a twoword command.n,s,e,or w for north,south,east,or west."
  564. 5640 say"typing the single word inventory.or i n v."
  565. 5650 say"will display a list of what you are currently carrying."
  566. 5660 say"typing statuss.or s t a."
  567. 5670 say"will give you a reedout of your current physical condition."
  568. 5680 print" [208]ress space bar[146] for even more notes on"
  569. 5690 say"press space for even more notes on ohperation saba toj."
  570. 5700 print"[153]          [207][208][197][210][193][212][201][207][206]:[160][160][211][193][194][207][212][193][199][197]"
  571. 5710 geta$:ifa$<>""then5710
  572. 5720 geta$:ifa$<>" "then5720
  573. 5730 print"[147][155]           [197]ven more notes on  [153]"
  574. 5740 print"          [207][208][197][210][193][212][201][207][206]:[160][160][211][193][194][207][212][193][199][197][155]"
  575. 5750 print"[208]art of the challenge of any fantasy/ adventure game is to figure";
  576. 5760 print" out what youare able to do in a particular situa-   tion.  [212]here";
  577. 5770 print"fore, you will not find a   list of all the verhs that the computer"
  578. 5780 print"can understand, or of all the objects   that you may discover.  [217]ou ";
  579. 5790 print"might find  yourself frustrated by what seem to be  dead-ends, and ";
  580. 5800 print"end up getting killed in the process.  [212]his is all part of the   ";
  581. 5810 print"adventure, and a test of your ingenuity and perseverance."
  582. 5820 say"part of the chalenge of any fantassy adventure game"
  583. 5830 say"is to figure out what you are able to do in a pa ticuler situation."
  584. 5840 say"therefore"
  585. 5850 say"youwillnotfind a list of all the verbs that the computer can understand"
  586. 5860 say"or of all the objects that you may discover."
  587. 5870 say"you might find yourself frustrated by what seem to be dead ends"
  588. 5880 say"and end up getting killed in the process."
  589. 5890 say"this is all part of the adventure"
  590. 5900 say"and a test of your ingenuitty and persa verance."
  591. 5910 print" [208]ress space bar[146] for program notes, or"
  592. 5920 print"        f1 [146]      to start the game."
  593. 5930 say"press space for program notes, or f 1 to start game."
  594. 5940 geta$:ifa$<>""then5900
  595. 5950 geta$:ifa$=""then5950
  596. 5960 ifa$=" "then5990
  597. 5970 ifa$="[133]"thenreturn
  598. 5980 goto5950
  599. 5990 print"[147][155]            [208]rogram notes on  [153]"
  600. 6000 print"          [207][208][197][210][193][212][201][207][206]:[160][160][211][193][194][207][212][193][199][197][155]"
  601. 6010 print"[212]he most obvious feature of the pro-  gram listing is that most ";
  602. 6020 print"of it looks   like a cryptogram.  [212]he [194][193][211][201][195] keywords  are all in ";
  603. 6030 print"their usual form, but the    string assignment statements and [196][193][212][193] ";
  604. 6040 print"  lines contain uncomprehensible garbage. [212]his is because all of ";
  605. 6050 print"the room descrip-tions, object names, monsters, and verbshave been ";
  606. 6060 print"encoded.  [212]his has been done  to preserve the value of the game.  ";
  607. 6070 print"[193]ny-one who has a listing of an adventure   game is bound to be dis";
  608. 6080 print"appointed in the game's playability, since they have ac- cess to so ";
  609. 6090 print"much information about the   plot.         [199]ood luck!"
  610. 6100 say"the most obvious feature of the program listing"
  611. 6110 say"is that most of it looks like a cryptoe gram."
  612. 6120 say"the basic key words are all in thaer usual form"
  613. 6130 say"but the string assignment staetements and data lines"
  614. 6140 say"contain uncomprehensible garbage."
  615. 6150 say"this is because all of the room descriptions,object names,mong sters"
  616. 6160 say"and verbs,have been encoded."
  617. 6170 say"this has been done to preserve the valuu of the game."
  618. 6180 say"any one who has a listing of an adventure game"
  619. 6190 say"is bound to be dissappointed in the games playability"
  620. 6200 say"since they have access to so much information about the plot."
  621. 6210 say"good luck!"
  622. 6220 print" [208]ress space bar[146] to start the game."
  623. 6230 say"hit space to start the game."
  624. 6240 geta$:ifa$<>""then6240
  625. 6250 geta$:ifa$<>" "then6250
  626. 6260 return
  627. 6270 rem
  628. 6280 poke792,207:poke793,2:poke720,4:poke739,13:poke743,0
  629. 6290 ifpeek(49153)=187thengoto6330
  630. 6300 print"[147]":poke53280,6:poke53281,6
  631. 6310 print"          loading sub programs  [146]"
  632. 6320 load"sam",8,1:end
  633. 6330 sys38144:poke52,125:poke54,125:poke56,125:poke53280,0:poke29,0
  634. 6340 ]re:]li 1:]sp 68:]pi 68:]kn 150,150
  635. 6350 return
  636. 6360 rem
  637. 6370 poke53281,6:poke53280,6:poke743,169
  638. 6380 poke720,8:poke739,52:poke744,50:poke749,56:poke754,48:poke758,169
  639. 6390 print"[147]  do you want to play again ?":say"do you want to play again."
  640. 6400 geta$:ifa$=""then6400
  641. 6410 ifa$="n"then6430
  642. 6420 run
  643. 6430 print"[147]  do you want to return to war games ?":x$=""
  644. 6440 say"do you want to return to war games."
  645. 6450 getx$:ifx$=""then6450
  646. 6460 ifx$="n"thenprint"[147]  bye bye":say"bye bye.":end
  647. 6470 print"[147]load";chr$(34);"war menu";chr$(34);",8,1"
  648. 6480 poke631,19:poke632,13:poke633,82:poke634,117:poke635,13:poke198,5
  649.